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1 * GENERAL AUTOMATION, INC A ALL RJGHTS RESERVED 

2 ************************************************** 

3 * 

4 * PROGRAM NAME FpH-26 

5 * 

6 * MODEL NUMBER 8FQ26 

7 * 

8 * PURPOSE FORTRAN PhASE-26 

9 * 

10 * PROGRAMMER PICK WALLMANN 

12 ***************** REVISION L-IbT ************** 

14 * RV DATE SCO BY RfcASON FOR CHANGE 

16 * 

17 * 01 11/16/70 NONE RPH INITIAL RELEASE 

18 * 

w 19 ************************************************** 

20 ************************************************** 

21 HDNG MPX FORTRAN ** OUTPUT I 

22 ************************************************** 

23 •STATUS-VERSION 1, MODIFICATION 

24 * 

25 *function/operation* 

26 * * build program header and data header 

127 * RECORDS 

28 * * ANALYZES DEFINE FILE STATEMENTS AND PUTS 

4 29 * THEM IN THE ByFFER FOK OUTPUT JO WORKING 

* 30 * STORAGE IM ABSOLUT E~MyDE EXCEPT FOR THE 

31 * ASSOCIATED VARIABLE WHICH IS IN RELOCATABLE 

32 * MODE 

33 * * SCANS THE SYMBOL TABLE FOH HEAL AND INTEGER 

34 * CONSTANTS AND PLACES THEM IN THE BUFFER IN 

35 * ABSOLUTE H°DE FOR OUTPUT 10 WORKING STORAGE 

36 * 

a 37 *ENTRY POINTS- 

38 * * MEQ - PHASE 26 IS LOAUED BY PHASE 25 VIA 

39 * THE ROLRX ROUTINE, CONTROL IS PASSED,, 

41 *INPUT-THE STATEMENT STRING AND SYMBOL TABLE FROM 

42 * THE PREVIOUS PHASES 

43 * 

44 *OUTPUT- 

45 * * 54 WORD CARD IMAGE RECORDS 

46 * * A 54 WORD BUFFER CONTAINING SIMILAR 

47 * INFORMATION TO BE OUTPUT 10 WORKING STORAGE 

48 * OR TO BE PASSED ON TO~PHASE 27 TO BE FILLED 

49 * AND PUT INTO WORKING STQRAGfc 

50 * 

51 *external references- 

52 * * subroutines- 

53 * ROLRX - PHASE ROLLING ROUTINE 

54 * LIO - IOCS ENTRY 

55 * * OTHER FORTRAN PHASES 
•56 * NONE 

57 * 

58 *EXITS- 

59 * * NORMAL 



\ 
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60 * PHASE 27 IS LOADED VIA KQL"X AND CONTROL 

61 * IS PASSED TO I.T, 

62 * * ERRORS* 

63 * OVERLAP- 

64 * IF A PREVIOUS PHASE HaS DETECTED AN 

65 * OVERLAP ERROR THEN AN IMMEDIATE EXIT 

66 * OTHERWISE, NO OVEKLAP ERROK IS DETECTED, 

67 * SYNTAX- 

68 * IF SYNTAX ERRORS HAVE OCCURRED THEN 

69 * OUTPUT IS SUPPRESSED, PHASE 

70 * 27 IS CALLED VIA kOlRX, 

71 * 

72 #TABLES/WORK AREAS' 

73 * * THE STATEMENT STRING 

74 * * THE SYMBOL TABLE 

75 * * THE FORTRAN COMMUNICATIONS AREA 

76 * 

77 *NQTES- 

78 * PROGRAM HEADER CONSISTS OF 12 WOKDS IN THE 

79 * BUFFER AREA 

80 * WD 1 RESERVED 

81 * WD 2 RESERVED 

62 * WD 3 INTEGER TYPE, PKEClSipN 

83 * WD 4 OBJECT TIME PROGRAM LENGTH 

84 * WD 5 LENGTH OF COMMON 

85 # WD 6 WD SIZE OF PROGKAM HEADER ■ 9 3 

86 * WD 7 VAR, AREA WHEN NO DfcFjNE FILE STMNT 

87 * WD 8 LENGTH OF PROGRAM IN pIS* BLOCKS 

88 * WD 9 NUMBER OF FJLES DEFINED 

89 * WD10 PROGRAM NAME 

90 * WD11 PROGRAM NAME 

91 * WD12 EXECUTION ADDRESS 

92 * 

„Jgj5 — ABS <j^f c»&? 

94 * 

95 * SYSTEM AND FORTRAN EQUATES 

-9*- MEMRY EQU ■H*rT <=^ 5 ^" MAXIMUM CORE SIZE 

98 PHSIZ EOU 4*320 MAXIMUM PHASE SIZE 

99 OVERL EQU HEMRY-PHSJZ PHASES 2-29 START 

100 FCOM EQU OVERL-22 FORTRAN COMM, TABLE! 

101 PHNTB EQU FC0M»56 PHASE TABLE 

102 ROLRX EQU PHNTB-50 INTERPHASE CALL 

104 LIO EQU /85 IOCS ENTRY 

105 * 

106 * FORTRAN COMMUNICATIONS AREA 

107 # 

108 ORG FCOM m , „ 

109 SOFS BSS 1 SJAKT OF STRING 

110 EQFS BSS 1 END OF STRING 

111 SOFST BSS 1 STAKT OF SYMBOL TABLE 

112 SOFNS BSS 1 PROW LENGTH AT OBJECT TIME 

113 SOFXT BSS 1 SlZfe OF WORK AREA 

114 SOFGT BSS 1 SIZE QF CONSTANTS AREA 

115 EOFST BSS 1 END OF SYMBOL TABLE 

116 COMON BSS 1 ENTRY POINT 

117 CSIZE BSS 1 SIZE QF COMMON 

118 ERROR BSS 1 OVEKLAP ERRO« 

119 FNAME BSS 1 PROURAM NAME 



SEITE 3 

120 BSS 1 2ND WgRu PROG NAME 

121 SQRF BSS 1 SLJ BK j«) QR TUNC {*) 

122 CCWD BSS 1 CONTROL CARD WORD 

123 * BIT 15 TRANSFER TRACE 

124 * BIT 14 ARITHMETIC TRACE 

125 * BIT 13 EXTENDED PRECISION 

126 * BIT 12 LIST SYMBOL TABLE 

127 * BIT 11 LIST SUBPROGRAM NAMES 
J 2 8 * BIT 10 LIST SOURCE PROGRAM 

129 * BIT 9 ONE WORD INTEGERS 

130 IOCS BSS 1 JOCb CONTROL CARD WORD 

131 * 

132 * SEE PHASE ONE FOR BIT PATTERNS 

134 DFCNT BSS 1 DEFINE FILE COUNT 

136 LCOMN BSS 2 INSkEL COMMON 

138 ICCER BSS 2 IOCb CONTROL CARD ERROR 

139 * 

140 BSS 2 SYSTEM LOADER USE 

141 * 

142 * END OF FURTRAN COMMUNICATION 

143 * AREA 

144 ************************************************** 

145 * THE SWITCHES USED IN PHASE 26 FOLLOW 

146 * IF POSITIVE; THE bWjTCH IS TRANSFER 

147 * IF ZERO, THE bWjTCH IS NORMAL N 

148 ♦ SWITCH COSW 

149 * N OUTPUT OF REAL CONSTANTS 
15Q # T OUTPUT OF" INTEGER CONSTANTS 

151 * SWITCH TWOWC 

152 * N OUTPUT OF TWO-WORD CALL NAME 

153 * T OUTPUT Of QNfc-WQRD CALL f'AME 

154 * 

155 ♦ 

156 * 

157 * BUFFER COMMUNICATIONS AREA 

158 * AND BUFFER 

160 * RESERVED FOR COMMUNICATION 

161 * BETWEEN PHASES 

162 * OUTPUT1 AND QUTpUT2 

164 * ORG OVERL*3*320 TO BUFFER AREA 

165 BSS E 

166 BUFPT DC *** BUFFER POINTER 

167 INPT DC **■* INDICATOR POINTER 
166 INCT DC *** INDICATOR COUNTER 

169 LOCTR DC LOCATION COUNTER 

170 RECCT DC 1 RECORD COUNT 

171 * OUTPUT BUFFER 

172 BUFF DC 54 BUFFER WQRD COUNT 

173 WD1 DC 

174 WD2 DC RESERVED 

175 WD3 DC TYPE, pRfcCjSION 

176 WD4 DC JNSKELL COMMON SJZS! 

177 WD5 DC LENGTH OF' COMMON 

178 WD6 DC 3 WD SjZE UF PROG HDR - 9 

179 WD7 DC VAR AREA IF NO DEFINE FILES 



SEITE 



180 




DC 









181 


WD9 


DC 







NUMBER Of FILES DEFINED 


182 


WDlO 


DC 







PROGKAH NAME 


183 




DC 







W0RD~2 OF PROGRAM NAME 


184 


WD12 


DC 







EXECUTION ADDR 


185 


* 










186 


* 










187 


* 






FOLLOWIN 


G INITIAL PROGPAH 


188 


* 






IS WITHIN BUFHERAKEA 


189 


* 










190 


START 


LD 


L 


FMAME 


PRUGRAM NAME 


191 




STO 


L 


WD10 




192 




LD 


L 


FNAME+1 




193 




STQ 


L 


WD10+1 




194 




LD 


L 


LCOMN 


GET COMMON SIZE 


195 




STO 


L 


WQ4 


PU'I JT IN HEADER WORD 4 


196 


• 










197 




LDX 


L3 


ZERO 


SEIUP JDX FOR CONSTANTS 


198 
199 


* 


INITIALIZE INDICATORS IN HEADER WORD 9 


200 




LD 


L 


DFCNT 


GET pEFINE FILE COJNT 


201 




SRT 




16 


PUT JT" IN Q 


202 




D 


3 


six-z 


DIVIDE BY SIX (6 WD ENTS) 


203 




STO 




WD9 


PUT QUOTIENT IN HDP WD9 


204 


* 










205 


* 


SET 


MPX 


INDICATORS IN HEADER WURD 7 


206 
207 


* 


LD 


L 


IOCS 


GET JOCS RECORD WORD 


208 




RTE 




31 


PUT BIT" 1 IN BIT 


209 




SRA 




15 


MOVfc BIT 1 IN POSITION 15 


210 




SLT 




15 


MOVfc BIT INTO POSITION! 1 


211 




SRA 




15 


MOVfc BltS TOGETHER 


** ■*» * 

212 




SRT 




2 


BITS NOW REVERSED AND I Mi Q 


213 

214 




A 


3 


ONE-Z 


SET ACC BIT 15 ON 




SRT 




1 


PUT JN Q TO IND MPX PROG 


215 




LD 


3 


H4000-Z 


SET'FLAU 


216 




LD 


L 


IOCS 


GET J/O CON! WD 


217 




SRA 




12 


PUT PLOTTER BIT IN BJT 15 


218 




SRT 




1 


SHIFT IT TO THE Q 


219 




LD 


L 


IOCS 


GET J/0 CON! WD 


220 




SRA 




5 


PUT KEYBOARD BJT IN 15 


221 




SRT 




1 


SHIFT INTO JHE Q 


222 




LD 


L 


IOCS 


GET J/O CONT WD 


223 




SRA 




4 


PUT MAG TAPE BJT IN 15 


224 




SRT 




1 


SHJFT INTO THE Q 


225 




LD 


L 


IOCS 


GET I/U CONT WD 


226 




SRA 




1 


PUT PAPER TAPE BIT IN 15 


227 




SRT 




1 


SHIFT IT INTO THE Q 


228 




LD 


L 


IOCS 


GET J/0 CONT WD 


229 




SRA 




3 


PUf 1443 PRINTER BIT IV 1 


230 




SRT 




1 


SHIFT IT INTO THE Q 


231 




LD 


L 


iocs 


GET J/O CARD BIT 15 


232 




SRT 




1 


SHIFT BIT 15 INTO D 


233 




LD 


L 


iocs 


GET J/O CONT WD 


234 




SRA 




2 


PUT TYPEWRITER BIT IN 15 


235 




SRT 




1 


SHIFT IT INTO THE Q 


236 




LD 


L 


CCWD 


GET CONT CAHD WD 


237 




SLA 




13 


PUT EXTENDED PRECISION 


C Kf f 

238 




SRA 




15 


BIT JN'BUT POSITION 15 


tm W *■* 

239 




A 


-. 


5 OME-Z 


SET STD OR EXTENDED PR=CI 
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240 SRT 2 ION, SHIFT INTO THE Q 

241 LD L CCWD SET C°NT CARD WORD 

242 SRA 6 PUT" ONE WORD INTEGERS 

243 SLT 15 BIT INTO BIT POSITION 15 

244 SRT 15 MOVE Q BJTS OVER 

245 A 3 TWO-Z TUKN BIT 14 OF ACC ON 

246 SRT 3 PUT IT IN Q 

247 SLT 16 WOKD'7 IS MOW FORMED SHiIF 

248 ♦ "' IT* INTO ACC AND STORE VIM 

249 STO L WD7 S-fuRE IT IN HEADER FO VIM 

250 * I T INTO ACC AND STORE VIM 

251 ID U IOCS GET lOgS RECORD VIM 

252 SLA 8 REMOVE BJTS THRU 7 

253 SRA 15 REMOVE BJT 9 

254 SLA 1 POSITION FO* HDR WD7 

255 OR U WD7 JOIN THEM 

256 STO L WD7 STuRE IT IN HEADER FO VIM 

257 BSC U QiOll 

258 * 

259 ORG GVERL 

260 NEQ BSC L ENT 

262 * DETERMINE WHETHER MAIN LINE 

263 * OR SUBPROGRAM 

264 * 

265 Q1011 LD L SQRF 

266 BSC L INISR.Z BR IF SUBROUTINE 

267 * 

268 * INITIALIZE MAIN LINE RROGR 

269 LD 3 HC20Q-Z GET MAIN LINE IND CONST, 

270 Q101X STO L WD3 SAVE IN 3RD WORD OF FROG HD 

271 LD L CSIZE SIZE OF COMMON 

272 STO L WD5 SAVE IN t>TH WORD OF PROG HD 

273 * 

274 Q101A LD L COMON PROGRAM fcNTRY POJNT 

275 STO L WD12 PUf \H 12TH WORD OF PROG HD 

276 * 

277 LDX 3 42 

278 SLA 17 

279 STO L3 WD12 CLEAR BUFFER REMAIMDE 

280 MDX 3 -1 

281 MDX **4 LOUP 

282 BSI L WRITE WRITE HEADER RECORD. 

284 * TEST IF ANY UEFlNEFlLE STATEMENTS 

285 * INCLUDED 

287 * LD L DFCNT CNT OF NO, DEFINING FILE 

288 BSC L F1012.Z BR* IP DEF N FILES ARE PRESEN 

289 MDX F2011 BRANCH IF NOT 

290 * 

201 * OUTPUT DEFINfc FILE STATEMENTS 

292 COUNT DC NO. WDS OEFN FILE STUNTS 

293 F1012 STO COUNT SET UEF FILE WORDCOUNTER 

294 SLA 16 CLEAK ACC 

295 LDX II SOFS INI.T'STRiNU POINTER 

296 * 

297 F1014 LD COUNT NO, WDS DEFN FILE 

298 * SCAN STRING FUR DEFJNE FILE STMNTS 

299 BSC L F2011, BR IF NO MgRE DEFINE FHEj 
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300 F1015 LD 1 SET |D WURD FROM STRING 

301 AND 3 HQ7FC-Z MASK ALL BUT NORM BITS 

302 STO 3 NORM"Z SAVE n O Rm J N - EMP ST0 

303 LD 1 GET JD WQRp FRQM STRING 

304 AND 3 HFBOO^Z MASK ALL ByT TYPE COPE 

305 S 3 HFOOO-Z TEST FOR DEfN FILE CODE 

306 BSC L F1021, -BR'lt DEFINE FILE STATEMENT 

307 * 

30 8 * MOVE POINTER TO NfcXT STATEMENT 

309 * MOVE POINTER TO NfcXT STATEMENT 

310 LD 3 NQRM-Z GET" STMNT NORM 

311 SRA 2 RIGHT jUSTjFY NORM 

312 STO F1D16 1 SAVE NORM COUNT 

313 F1016 MDX LI *** INCR I/P STRING PT BY NORM 

314 MDX F1015 BR'Tg CHfcCK NEXT STMNT TYPE 

316 * OUTPUT A DEFINE F\Lb STATEMENT 

317 * 

318 * INITIALIZE COUNTER TO OUTPUT 

319 * FOURTH WORD In EACH SJXWORD GROUP 

320 * AS RELATIVE SYMBOL TABLE ADDRESS 

321 * „ 

322 F1021 LD 3 FOUR-Z GET CONSTANT A 

323 STO 3 SCT-Z SET UP COUNTER ON NO, WORDS 

324 * 

325 F1022 MDX 1 1 I "9* POINTER 

326 MDX L NQRMi-4 DECR NORM BY ONE WORD 

327 MDX F1023 BR IF NO SKIP 

328 MDX F1014 BR \f_ END QF STATEMENT 

329 * 

330 * TEST IF FOURTH WD IN GROUP 

331 F1023 MDX L SCT.-l DECR WORD COUNTER 

332 MDX F1024 BR IF NO SKIP 

333 * 

334 t OUTPUT RELTV aDDR ASSOCIATED VAR-WP 

335 UD i PICK UP FOURTH WORD STMNT 

336 BSI 3 GETST-Z GET SYMBOL TABLE ADDRESS 

337 BSI 3 OUREL-Z OU.TPuT RELATE WORD 

338 * OR ABSOLUTE IF IN 

339 * COMMON 

34g LD 3 SIX-Z RESET CTK pN DEFN FILE WDCN 

341 STO 3 SCT-Z SAVE COUNT IN TEMP CTR 

342 MDX F1025 BR Tu cONTjNUE O/P OF ST^NT 

343 * 

344 * OUTPUT ABSOLUTE 

345 F1024 LD 10 

346 BSI 3 OUABS-Z GO UUTPUT WORD 

347 * 

348 * COUNT DEFJNf HLE WORD* 

349 F1025 MDX L COUNT, -1 

3*0 SLA TO BALANCE SKIP 

351 MDX F1022 'BR TO CONT DEF FILE TBL 0/ 

352 * 

353 * 

354 * HERE COMES OUTPUT OF 
365 * DATA -STATEMfcNTS 

3^6 * SEARCH THROUGH STRING FOR DATA 

357 * STATEMENTS ANU OUTPUT 

tr a ^ 

359 F2011 LDX II SQFS XRl 5 STMT, START 
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360 * 

361 * STORE STMNT-IU COMPyTE 

362 * ADDR OF NEXT STATEMENT 

363 * 

364 DT102 LD 1 L,OAD STMNT ID WORD 

365 AND 3 HF800.-Z MASK OgT A^U BUT STMNT TYPE 

366 STO STID SAVE STMNT TYPE 

367 LD 1 LOAD STMNT ID WORD AGAIN 

368 AND 3 H07FC-Z MASK OUT AL> BUT STMMT NORM 

369 SRA 2 RIGHT jUSTjFY NORM 

370 STX 1 TMP1 SAVE'PT OF CURRENT STMNT 

371 A TMP1 ADD TO STMNT NORM TO 

372 STQ DT104 1 COMPUTE POjNTER TO NXT STMN 

373 * 

374 LD STID TEST IF END-SJMNT 

375 S 3 HJ.0DQ-Z END STMNT JD CONSTANT 

376 BSC L F3011, -BR J ► END-STUNT 

377 S DTAID DATA STATEMENT TEST CONSTAN 

378 BSC L DT201, - BRANCH IF pATA STATEMENT 

379 DU04 LDX LI *-* MOVE POINTER TO NEXT STMNJT 

380 MDX DT102 CONTINUE SCAN FOR DATA STMN 

381 * 

382 * CONSTANTS, TEMP STORAGE 

383 • 

384 TMPl DC POINTER TO CURRENT STMNT 

385 STID DC STATEMENT JD TYPE 

386 DPLF DC DUPLICATION FACTOR 

387 DTAID DC /F800-/1QOO 

•» q a ^ 

3B9 * MOVE POINTER TO NEXT DATAGROUP 

390 * 

391 DT201 MDX 1 1 

392 * 

393 SLA NOP 

394 STX 1 TMPl SAVE CyRHENT STRING POINTER 

395 LD * TMPl COMPARE CURRENT STRING LOC 

396 S DT104 1 WITH'STAHT OF NEXT STMMT 

397 BSC L DT104,- BR'lh END QF STATEMENT 

398 * 

399 * SAVE ADDR OF CONSTANT STRING m 1 
40Q * MOVE POINTER TO FIRST V A RJABLE 

402 * STX LI ADCST SAVE ADDKEsS 

403 LD 1 GET LENGTH OF CON STRING WD 

404 AND 3 H0QQ7-Z MASK OgT'ALL «UT LENGTH 

405 STO DT2Q2 1 SAVE LENGTH 

4()6 L D i o GET WD HAVING DUPCTN FACTOR 

40 7 SRA 3 RIGHT jUSTjFY FACTOR IN ACC 

408 STO DPLF STORE DUPLICATION FACTOR 

409 MDX 1 1 MOVE I/P PT PAST DATA HEADE 

410 DT2Q2 MDX LI *-* MOVE PT TO FIRST VAR NAM£, 

411 DT203 LD 1 GET UATA POINTER 

412 BSI 3 GETST-Z LOCATE SYMBOL TABLE ID WQRD 

413 LD J GET4 GET SYMBOL TABLE ID WORD 

414 AND 3 H1800-Z MASK" ID WD FO* DIMENSION BI 

415 BSC L DT301.Z BR" It DIMENSIONED VARIABLE 

416 # 

417 * OUTPUT DATA FuR A SjNGLE VARIABLE 

418 * 

419 LD I GET1 1 GET LOCATION 
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420 DT211 BSI DHT OUTPUT DaTaHD* IF NECESSARY 

421 " BS! DTAC OUTPUT DATA CONSTANT 

422 DT221 MDX L DPLF,-1 DECR~DuPLlCATION FACTOR 

423 MDX DT222 BR~ JC NOT END OF VARIABLES 
4?4 MDX DT201 BR \¥ END OF DTAGROUP 

425 DT222 MDX 1 1 INCREMENT POSTER 

426 MDX DT203 BR Tg PROCESS NEXT VARIABLE 

427 * 

428 * DIMENSIONED VaRjABLE ENCOUNTERED 

429 * 

430 DT301 EQU * ENTRY pOjNT UABE^ 

431 L, D DPIF LP UUP FACTOH FROM PAT VIM 

432 STO 3 ADUPF-Z *AND PUT jT IN TEMP ON VIM 

433 SLA 16 CLEAR ACC 

434 STO 3 OFSET-Z CLEAK OFFSET DISPLACEMENT W 

tit * LD 1 LOAD DATA POSTER WORD 

437 SLA 1 SHIFT DISPLACEMENT If'DR 3;|T 

438 BSC L DT320,- 'BRANCH, NO OFFSET 

440 * MDX 1 1 POSITION POINTER 

441 id 1 GET DISPLACEMENT WORD 

442 STO 3 OFSET-Z SAVE THE OFF SET VALU VIM 

443 LD 1 -1 LD DATA POINTER WORD VIM 

444 SLA 2 PUT'BJT 1 IN SIGN POSI VIM 

445 BSC L DT32Q,- BR IF WD NOT SYM TBL P VIM 

446 LD 3 O^JE-Z ELSE GET A ONE VIM 

447 STO 3 ADUPF-Z *ANd RUT JT IN TEMP DU VIM 

448 * 

449 DT320 EOU * ENTRY POJNT LABEL 

450 LD L CCWD VSIZt SUE OF REAL VARJA3LE 

451 SLA 14 PLACE INDICATOR IN CARRY 

452 LD 3 TWQ-Z STANDARD VARIABLE SIZE 

453 BSC C SKIP IF STANDARD PRECISION 

454 LD 3 THREE-Z EXTENDED VARIABLE SIZE 

455 STO 3 VSIZE-Z SAVE VARIABLE SIZE 

456 * 

457 L. D I G£T4 LOAD SyMBOL TABLE ID WORD: 

458 SLA 1 TEST BjT 1 REAL OR INTEGER 

459 BSC L DT340,- 8RANUH IT REAL VARIABLE 

461 * LD L CCWD VSIZfc SUE OF INTEGER VAR 

462 SLA 10 PLACfc INDICATOR IN CARRY 

463 LD 3 ONE-Z ONE WORD INTEGER SIZE 

4 6 4 BSC C SKIP ON NO ONE WORD INTE3ER 

465 STO 3 VSIZE-Z SAVE VARIABLE SIZE 

466 * 

467 DT340 EQU * ENTRY POINT LABEL 
466 * 

469 LD 3 GET4*Z COMPUTE ARRAY SIZE IN WORDS 

470 S 3 THREE-Z FJRSl cO^PgTE ADDR OF F I35T 

471 STO * 1 WORD'OF ARRAY SIZE 

472 LD L *-* LOAD ARRAY SIZE FROM SYM TB 

473 M 3 VSIZE-Z MULTIPLY BY VARIABLE SIZE! 

474 SLT 16 PUT PRODUCT JN ACC 

475 STO 3 ASIZE^Z SAVE IN ARRAY SIZE 

476 * 

477 s 3 OFSET-Z COMPUTE NO, OF ELEMENTS THAT 

478 SRT 16 CAN BE FjLLEDj 

479 D 3 VSIZE-Z DIVIDE BY VARIABLE SIZE 
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480 STO 3 NOELM-Z SAVE NQ, ELEMENTS TO FJLU 

481 * 

482 S 3 ADUPF-Z SUB TEMP DUP FACTOR VIM 

483 BSC L DT33Q, BR, M|.L ARRAY IF NOELM LE 

484 * OUPIJCATJON FACTOR 

485 ID 3 ADUPF-Z GET T£MP pUP FACTOR VIM 

486 STO 3 NQELM-Z 

487 * 

488 M 3 VSIZE-Z COMPUTE ARRAY SIZE 

489 SLT 16 NO, bLEMbNTS * VAR SIZE 

490 A 3 OFSET-Z PLUS" OFFSET 

491 STO 3 ASIZE-Z ARRAY SjZE 

492 * 

493 DT330 EQU * ENTRY POJNT 

494 LD DPLF ADJUST DUPLICATION FACTOR; 

495 S 3 NOELM-Z SUBTRACT NQ, ELEHENTS 

496 A 3 ONE-Z PLUS ONE 

497 STO DPLF SAVE NEW DUPLICATION FACTOR 

498 * 

499 LD 3 NOELM-Z GET NO, ELEMENTS TO FILL 

500 SRA 1 REMOVE LOW ORDER BjT 

501 BSC L DT35Q, - BRANCH IF REMAINDER 

502 * 

503 LD I GET4 LOAD SYMBOL TABLE ID WORD: 

504 SLA 1 TEST FQR INTEGER VARIABLE; 

505 BSC L DT350,- 9RANUH, NOT INTEGER VARIABL 

506 * 

507 LD L CCWD TEST CONTROL CARD WORD 

508 SLA 9 FOR UNE WORD INTEGERS 

509 BSC L DT350, Z BRANCH, UNE WORD INTEGERS. 

510 * 

511 SLA 5 EXTENDED PREC BIT To CARRY 

512 LD 3 NOELM-Z L * NQ, ELEMENTS 

513 BSC C TEST CA«KY FOR EXTENDED *RE 

514 SLA 1 EXTENDED PREC MPY NO, ELTS* 

515 A 3 NOELM-Z ADD ACTUAL NO i ELEMENTS 

516 STO 3 NQELM-Z NOiELEMENTS *2 OR 3 f- SAVE 

518 DT350 EQU * ENTRY pOjNT LABEL 

519 LD i GET1 1 PLACE DSF HEADER 

520 S 3 ASIZE-Z DAfA WD ADUR ■ ARRAY SIZEi 

521 A 3 VSIZE-Z PLUS VaR SjZE 

522 BSI DHT BR'Tu SEE JF DATA HDR O/P 

p: n't . 

524 DT360 LD 3 NQELM-Z SET DATA GROUP OUTPUT 

525 BSI DTAC OUTPUT CONSTANTS 

526 MDX L NOELM, -1 DECR'CQUNT ON NO, ELEMENTS 

527 MDX DT360 CONTjNyE IF MORE O/P 

528 MDX DT221 FINISHED, RETURN 

529 * 

530 * SUBROUTINE 

531 * TEST JF DATAHfcApEK NECESSARY 

532 * ACC CONTAINS ADDR OF VAR TO BE 0/*| 

533 * OUTPUT DATA HfcADEK JF NECESSARY 

534 * 

535 DHT DC LINK ENTRY POINT 

536 S L LOCTR TEST LQCATJON COUNTER 

537 BSC L DHT2# - BR I* L°C LOCTR, NO HDR ; 

538 * IS NEEDED 

539 A L LOCTR RESET LOCATION COUNTER 
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540 DHTl STO L LOCTR SAVE 

541 BSI L WRITE WKJTE RfcCyRD 

542 DHT2 BSC J DHT RETUKN 

543 * 

544 * SUBROUTINE OUTPUT D*TA»CONSTaHT 

545 * 

546 * FROM THE STRING 

547 DTAC DC ENTRY POJNT 

548 LD 3 ADCST-Z JNSEkT ADDRESS OF CON ST<MN 

549 STO DTAC? 1 SAVE ADDRESS OF CON STRING 

550 LD L DT2Q2 1 INITUZ CONSTANT STRING CDUN 

551 STO 3 CUCT"Z SAVE CONSTANT STRING COUNT 

552 DTAC1 MDX L DTAC2 1,1'INCN ADDR OF CON STRING 

553 DTAC2 LD L *-* G ET CONSTANT FR STRUNG 

554 BSI 3 OUABS-Z OUTPUT 

555 MDX L CLCT#-1 CONSTANT STRING COUNT 

556 MDX DTAC1 BR if PAKT OF CNST REMAINS 

557 B S C I DTAC RETUHN IK END OF CONSTANT 

558 * 

559 ** 

560 * 

561 * 

562 * INITIALIZE LQUATlONqQUNTER 

563 F3011 LD L SOFXT GET'WqRK AREA SJZE VIM 

564 * (THIS'JNCLUUES DEF, FILE WORDS 

565 BSI DHT TEST FOK NEW CARD 

566 * 

567 * 

568 * OUTPUT CONSTANTS 

56 9 * SCANS SYMBOL TABLE AND OUTPUTS REAL 

570 * CONSTANTS, FOLLOWED OY A SCAN TO 

571 * OUTPUT INTEGER CONSTANTS 

%\ I INITIALIZE SYMBOL TABLE f OR OUTPUT 

574 * OF CONSTANTS 

575 * 

576 IN1ST LD L SOFST LOAD START LOC OF SYMBOL TB 

577 STO 3 SYMTP-Z SYMBuL TABLE POINTER 

578 * 

579 * TEST IF END Oh SYM TABLE 

580 Q1012 LD 3 SYMTP-Z SYMBOL TABLE POINTER 

581 ~~ S L EOFST END UF SYMBOL TABLE 

582 BSC L 01041, BR JK ENU OF SYMBOL TABLSi 

583 * 

584 LD I SYMTP LOAD ID WORD FROM SYMBOL TB 

585 BSC I SKIP IF NOT ENTRY OF CON 

586 MDX Q1021 BR "IK ENTRY CONSTANT 

587 * 

588 * MOVE SYMBOL TaBLE POINTER 

589 * BV 3 WORDS FOK MOST SYMBOLS 

590 * OR 6 WORDS FOK DIMENSIONED VARIABLES 

591 Q1013 LD I SYMTP LDAD'SYMbOL TABLE ID WORD 

592 AND 3 HlBOQ-Z TEST FqR DIMENSIONED VAR, 

593 BSC Z SKIP IF NOT DIMENSIONED VA 

594 LD 3 HFFFD-Z I NCR BY »3 WDS FOR DIM VAR 

595 A 3 HFFFD-Z INCR BY -3 WDS FOR ALL EMIT 

596 a 3 SYMTP-Z ADD rO SYMBOL TABLE POINTE 

597 STO 3 SYMTP-Z SAVE'lN SYMBOL TABLE POINT 

598 MDX 01012 CONTiNUE SpAN OF SYMBOL TB 

599 * 





SEITE 


11 






600 


# 






CONSTANT 


FOUNU IN SYMBOL TABLE 


601 


* 






OUTPUT REAL AND INTEGER CONSTANTS IN 


602 


* 






ABSOLUTE 


MODE 


603 


* 










604 


O1021 


LDX 


11 


SYMTP 


PUT SYMBOL: TABLE POINTER X 


605 


* 










606 


* 






SAVE LOCATION COUNTER 


607 


Q1022 


LD 


L 


LOCTR 


LOAD LQCATjQN COUNTER 


608 




STO 


3 


TF.MP2-Z 


S"AVE IN TEMPORARY STORAGE! 


609 


* 










610 




LD 


1 





GET SYMBOL TABLE CONSTANT 


611 




SLA 




1 


SHIFT INTEGER BIT TO SIGN! 


612 




BSC 




w 


SKIP" IF INTEGER CONSTANT 


613 




MDX 




Q1031 


8R U NOT 


614 


* 










615 


* 






TEST IF 


INTEGfcR CONSTANT OUTPUT PASS 


616 




LD 


3 


COSWZ 


LOAD" INTEGER CON Q/P SWITC 


617 




BSC 


L 


Q1D13, - 


BR' 1^ NOT INTEGER COM O/Pl 


618 


* 










619 




LD 


1 


1 


SECOND WpRp |N SYMBOL TA3L 


620 


# 








ENTRY TO ACCUMULATOR 


621 




MDX 




01033 


8R"Tu Q/P jN ABSOLUTE MODE 


622 


* 










623 


# 






TEST IF 


REAL CONSTANT PASS 


624 


Q1031 


LD 


3 


CQSW-Z 


LOAD" INTEGER CON Q/p SWITC 


625 




BSC 


L 


Q1013 # Z 


BR" jh INTEGER CON INDICATED 


626 


* 










627 


* 






TEST IF 


EXTENUED PRECISION 


628 




LD 


L 


CCWD 


LOAD CONTROL CARD WORD 


629 




SLA 




13 


Shift extended prec pit 


630 




BSC 




f» 


Skip" if extended prec 


631 




MDX 




Q1032 


8R"J£ NOT EXTENDED PREC 


632 


# 










633 




LD 


1 





LOAD SYMBOL TABLE ID WORD 


634 




AND 


3 


HOOFF-Z 


Mask all but bits b-is 


635 




BSI 


3 


OUABS-Z 


SUBR OUTPUT* ENTRY ABS 


636 


Q1032 


LD 


1 


1 


SECOND WORD IN ENTRY TO ACC 


637 




BSI 


3 


OUABS-Z 


SUBR OUTPUT, ENTRY ABS 


638 




LD 


1 


2 


THIRU WORD IN SYMBOL TABLE 


639 


* 








ENTRY TO ACC 


640 


Q1033 


BSI 


3 


OUABS-Z 


SUBR OUTPUT, ENTRY ABS 


641 
642 


* 
* 






INSERT ALLOCATION INTO SYHJBL. 


643 




LD 


3 


TEMP2-Z 


GET ALLOC CON FROM TEMP STO 


644 




STO 


1 


1 


STORE JN 2ND WD OF SYM T3L 


645 
646 


* 


MDX 




O1013 


8R Tu CONTJNUE SYM TBL SCAN 


647 


* 










648 


* 






TEST IF 


THAT WAS THE SECOND 


649 


* 






INTEGER CONSTANT PASS 


650 


* 










6151 


Q1041 


LD 


3 


cosw-z 


CONSlANT OUTPUT SWITCH 


652 




BSC 


L 


Ql05i,Z 


BR Jf SECOND PASS 


653 




MDX 


L 


CQSWil 


CHANGE CONSTANT O/P SWITCH 


654 




MDX 




IN I ST 


GO~To NEXT PASS 


655 


* 










656 


# 






OUTPUT OF CONSTANTS COMPLETED 


657 


* 






START OUTPUT "OF STRING DATA 


658 


* 










659 


* 






TEST THAT OUTPUT LOCATION COUNTER 





SEITE 


12 








660 


* 






CHECKS WITH THE ONE ASSUMED AT 


661 


* 






statement'allucation, if not, 


662 


• 






OUTPUT DUMMY WORD, 


663 


Q1051 


LD 


L 


SQFXT 


LOAD 


SjZb OF WORK AREA 


664 




A 


L 


SQFGT 


PLUS 


S jZfc OF CONSTANT AREA 


665 




S 


L 


LOCTR 


LESS 


THE LOCATION COUNTER; 


666 




BSC 


L 


EXIT, 


8R n 


SUE WK AREA CONST 


667 


* 






AREA L.E 


t LOCATION COUNTER 


668 




SLA 




16 


CLEAN 


ACC 


669 




BSi 


3 


OUABS-Z 


OUTPUT DUMMY WORD 


670 




MDX 




Q1051 


CONTINUE" LOOP 


671 


* 






BR TO LOADING 


OF NEXT PHASE 


672 




BSC 


L 


EXIT 






673 
674 


* 






PROGRAM 


BEING 


COMPILED IS A SUBR 


675 


* 






INITIALIZE SUdR, OUTPUT 


676 


* 












677 


INJSR 


LD 


3 


HQ4Q1-Z 




SET SUBPROGRAM TYPE* 


678 




BSC 


L 


Q101X 


RETUKN TU CONTINUE PROCESS! 


679 


* 












680 


* WRITE BINARY DATA 






681 


* 












682 


WRITE 


DC 




*«* 




ENTRY POINT 


683 




LDX 


3 


54 






684 




SUA 




17 




CLEAR CARRY 


685 




LD 


L 


recct 




RECORD COUNT 


686 


WR01 


A 


L3 


BUFF 




FOHM CHECKSUM 


687 




BSC 




C 






688 




A 




ONE 






6B9 




MDX 


3 


"1 






690 




MDX 




WR01 




LOUP 


691 




RCP 




4,4 






692 




RIC 




4,4 


MAKt 


: 2*S COMPLIMENT 


693 




STO 


L 


WD2 




CHECKSUM 


694 




BSI 


L 


HO 




WRITE BINARY RECORD. 


695 




DC 




/2104 






696 




DC 




BUFF 






697 




DC 











698 




BSI 


L 


LIO 




WAIT FOK TRANSFER 


699 




DC 




/F004 






700 




LDX 


mm 




53 






701 




SLA 




17 






702 


WR02 


STO 


L3 


WD1 




CLEAR BUFFER 


703 




MDX 


3 


-1 






704 




MDX 




WR02 




LOUP 


705 




LDX 


L3 


Z 




RESTORE Z POINTER 


706 




LD 


3 


CD16-Z 




• 16 


707 




STO 


L 


INCT 




gNT.tBII COUNT = 06- 


708 




LDD 




WR03 






709 




STD 


L 


bufpt 




BUFPT=WU10,INPT=WD4 


710 




LD 


L 


LOCTR 






711 




STO 


L 


WD1 




NEW LOCATION COUNTER 


712 




LD 




WR03*2 




/Ago 


713 




STO 


L 


WD 3 




DATA RECORD TYPE 


714 




MDX 


L 


RECCT,! 


inckement record count 


715 




BSC 


I 


WRITE 


Ex'r" 


1 


716 




BSS 


E 









717 


WR03 


DC 




WD10 




DATA START 


718 




DC 




WD4 




CONTROL, START 


719 




DC 




/A00 







SEITE 13 



720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 



STONA 



ZERO 

Z 

ONE 

TWO 

THREE 

FOUR 

SIX 

H0002 

HQ003 

H0005 

SEVEN 

H0200 

HQ201 

H0401 

C320 

H1800 

HFFFD 

HFEFF 

H0007 

HOOFF 

CD16 

HQ7FC 

HF800 

HF0 

H07FF 

H1000 

H2000 

H8000 

H4000 

BFEND 

OFSET 

VSIZE 

ASlZE 

NOELH 

ADCST 

CLCT 

HOSW 

* 

NORM 

COSW 

TEMP2 

SYMTP 

SCT 

ADUPF 

* 

* 

# 
* 



GETST DC 
AND 
STO 



BSS 

DC 

DC 

DC 

EQU 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 
DC 
DC 
DC 
DC 
DC 





STORfcD NAME WU 1 

STORbD NAME WO 2 

CONSTANT 
ZERO CONSTANT 

1 CONSTANT 

2 CONSTANT 

3 CONSTANT 

4 CONSTANT 

6 CONSTANT 
/0002 CONSTANT 
/QQ03 CONSTANT 
/Q005 CONSTANT 

7 CONSTANT 
/Q2Q0 CONSTANT 

/C201 MAINL REL TYPE W PREC CONST 

/Q4Q1 CONSTANT 

320 CONSTANT 

/1800 CONSTANT 

/FFFP CONSTANT 

/FEFF EXT PRECISION MASK 

/0007 CONSTANT 

/QOFF CONSTANT 

16 CONSTANT 

/Q7FC CONSTANT 

/F800 CONSTANT 

/F000 ID FuR UEFINE FILE 

/07FF CONSTANT 

/1O00 CONSTANT 

/2000 CONSTANT 

/8000 MASK'Tq SEE JF DISK 10 B JTO 

/4000 CONSTANT 

DUFF*55 BUFFER END 

*„* DISPLACEMENT WD FR DATA a T 

*»* VARIABLE SJZE 1,2 OR 3 

*»# ARRAY SUE DATA STMNT 

*,* NO; ELEMENTS TO BE FILLED: 

**# addr'cqnjatant string ■ 1 

*„* length of constant strin3: 

*„« dajVgroup o/p switch 

WD CUUNT I/P STRING 

o constant pass switch 

o temporary storage 

o symbol table pointer 

SEVEN COUNT 

*•* TEMPuRaRY duplication facto 



subroutine getst 
get object time address or 
alphabetic name from symbol table 
on entry acc stking pointer to 
symbol table 

link entry point 
3 hq7ff-z mask out ' all but var pt 

GETl'l SAVE VARIABLE POINTER 



SEITE 14 

780 LD I SQFST LOAD STAKT OF SYMBOL TABLE 

781 S GET1 1 S'UBTMACT POINTER IN SYM TBL 
783 S GET1 1 *THRfcE 

783 S GET1 1 *TIMhS 

7B4 A 3 H0005-Z ADD » TO PqS AT END OF DATA 

785 STO GET1 1 SAVE POlNT£R 

786 S 3 TWO-Z HOVE PT BACK TQ ADDR OF ID 

787 STO GET4 STORfc ADUR OF JDpWD 

788 GETl LD L *** LOAD" VARIABLE FROM SYM T3L 

789 RTE 16 POT * N EXTENSION 

790 MDX L GETl 1,-1 D|CK POINTER 

793f SLA GUARDS AUAJNST SKIP 

792 LD I GETl 1 GET UATA WD F« SYM TBL 

793 BSC I GETST RETUHN 

794 GET4 DC *-* ADDR OF SYM TBL ID WORD 

796 * OUTPUT ADDRESb OR CONSTANT IN 

797 * ABSOLUTE MODE 

798 i, ACCUMULATOR'AND EXTENSION CONTAIN 

799 * WQROS TO BE OUTpUj 

800 * 

8Q1 * ENTRY ABSOLUTE OUTPUT 

802 OUABS DC LINK 

803 T8011 STD 3 STONA-Z STORt ACC AND EXTENSION 

804 LD 3 ZERO-Z ZERO-ZERO 

805 BSI IBITS TO INDICATOR AREA 

806 * 

807 T8012 LD 3 STONA.Z GET STQRfcD ACCUMULATOR 

808 BSI TOBUF MOVE~TO BUFFER 
8Q9 * 

810 T8016 BSC I OUABS REIUKN 

811 * 

812 * OUTPUT ADDRESb QR CONSTANT IN 

813 * RELOCATABLE MuDE 

815 I EMTRY RELATIVE OUTPUT 

816 * RELATIVE OUTPUT INCLUDES TEST 
8i7 * WHETHER VARIABLE IS IN COMMON, IN 

818 * WHICH CASE OUTPUT IS ABSOLUTE 

819 # 

820 OUREL DC LINK ENTRY POINT 

821 T8013 STD 3 STONA-Z STORfc ACC AND EXTENSION 

822 LD OUREL SET LINK RETURN ADDRESS 
8?3 STO OUABS JN'abSOLUTE LINK EXIT POJNT 
824 LD L GETl 1 LOAD ADDR OF SYM TBL DATA W 
8?5 S 3 ONE-Z SUBTKACT.l TO GET ADDR ID. W 

826 STO T8014 1 INSERT AUDR OF SYM TPL ID. W 

827 T8014 LD L *-* L.°AD SyM TBL ID WORD 

828 AND 3 H20QQ-Z TEST FQR COMMON JNDR BIT 

829 BSC L T8Q15, - BR" I* NOT JN COMMON 

830 MDX L L0CTR.-1 FIX F R S5232 VIM 
83i NOP T AKt NO CHANCES VIM 

832 LD 3 HQ003*Z INDICATOR BIT MASK 

833 BSI IBITS PUT FIRST 2 INDR BITS IN 

834 LD 3 STONA-Z INDICATOR POJNTER 

835 BSC - SKIP IF BLANK COMMON 

836 S 3 H4000-Z ADUADDK QF LABELED COMMON 

837 BSI TOBUF O/P AD&R TO BUFFER AREA 

838 LD 3 STONA-Z GET ADDR TO BUFFER 

639 s LA i PUT BLANK COMMON BIT TO C 



SEITE 15 



840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 



* 
T8015 



# 



LD 

BSC 

LD 

BSI 

LD 

BSC 

S 

BSI 

MDX 

LD 

BSI 

MDX 



* 
* 



IBITS 



IBIT2 
IBIT3 



IBIT4 
IBITS 
IBJT6 
IBJT7 



* 
* 

* 



TOBUF 



DC 

STO 

LD 

A 

STO 

A 

STO 

LD 

SRA 

A 

SLA 

STO 

MDX 

MDX 

MDX 

LD 

STO 

BSC 

DC 

DC 

DC 



DC 

STO 

MDX 

MDX 

MDX 

LD 

S 

BSC 

BSI 

BSC 



H0002-Z 

C 

H0003-Z 

IBITS 

STONA-Z 

H4000-Z 

TOBUF 

T8016 

o ,\| e • z 

IBITS 
T8012 



I 
L 



L 
I 



I 
L 
L 
L 



SET INDK FOR INSKEL COMMON 
SKIP UNLESS BLANK COMMON 

SET BLANK COMMON INDR 

PUT UUT INDICATOR BITS 

SET ADDRESS 

"SKIP IF BLANK COMMON 
ADJ LABELED COMMON ADDR 

P/P ADDRESS TO BUFFER 

RETUHN 



ZERO*ONE FgR INDICATOR 
MOVE TO INDICATOR AREA 
RETUHN 



BITS 



INDICATOR BITS 

ACCUMULATOR CUNTAJNS BIT PATTERNS TO 
MASK INTO THE INDICATOR POINTER 
BASED ON SHIFTS SPECIFIED IN THE 
INDICATOR COUNTER 





IBIT5 

INCT 

IBIT6 

I8IT3 

IBIT7 

IBIT2 

I HPT 

ix ** ♦ 

IBIT5 

INPT 

INCT#*S 

IBIT4 

INPTil 
CD16-Z 
INCT 
IBITS 



/DFFE 

/Q8Q0 



LINK ENTRY POINT 
SAVE BIT 'PATTERNS 
PRODUCE SLA AND SRA 
INSTRUCTIONS AND INSERT 

LENGTH OF SHIFT DEPENDS 
INDICATOR COUNTER 
SET UP SRA INSTRUCTION 



ON 



SRA JNCT * 2 
TEMP VALUE FROM 
SLA INCT • 2 



ACC 



dKIP 



DECR INDICATOR COUNTER 
BR IF NOT ZERO NO St 

" JNCR, INDICATOR PTR:, 
REINITIALIZE INDICATOR CTR 
TO 16 
RETURN 

TEMPORARY STOWAGE 
iSLA' 0, ■ 0002 
t SRA 0, * ,SLA 0, 



SUBROUTINE 
MOVE TO BUFFER 
ACCUMULATOR CONTAINS 

POINTER 



INDICATOR 





BUFPT 
LOCTR,l 
BUFPT,! 

WD3,1 
TEST IF 
BUFPT 
BFEND-Z 

WRITE-Z 
TOBUF 



ENTRY POINT 
WQRU IN BUFFER 
LOCATJON COUNTER 
BUFFER POINTER 
INCREMENT DATA COUNT 
END OF BUFFER 



LINK 
SAVE 

JNCR 
INC A 



SKIP IF NOT FULL 



REUTRN 



I 



SEITE 3.6 



900 * 

901 * PROGRAM ENTRY 

902 * TEST IF OUTPUT JS Tp BE DEFERRED 
90 3 * 

904 ENT LD L ERROR 

905 BSC I START, --BRANCH T(j START JF NO 

906 * §RNOR 

907 * 

908 * LOAD NEXT PHAbE 

909 * 

910 EXIT BSI L ROURX CALL DOWN PHASE 27 
9U DC 27 NEXT PHASE NUMPER 

912 * 

913 BSS OVERL-**320*3 RHASE-2& PATCH AREA 

914 END NEO 



